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MODULE CREATE ( | 


ANGUAGE (BLISS$32), 
DENT = +yOS-00T* 
= 


CREATE 


~— 


BEGIN 


SoOoooooo 


| 

| 

| 
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This module processes the create function. It creates a file with the 
attributes roguestes. enters it in a directory if desired, and 


accesses it if requested. 


i ENVIRONMENT: 


i 
04 
b2 
OF 

008 

sist '® * 

010 'w COPYRIGHT (c) 1978, 1980, 1982, 1984 BY * 

0011 '® DIGITAL EQUIPMENT CORPORATION, MAYNARD, MASSACHUSETTS. * 

pote be ALL RIGHTS RESERVED. * 
' ® 

0014 'w THIS SOFTWARE IS FURNISHED UNDER A LICENSE AND MAY BE USED AND COPIED * 

0015 'w ONLY IN ACCORDANCE WITH THE TERMS OF SUCH LICENSE AND WITH THE * 

B28 'w INCLUSION OF THE ABOVE COPYRIGHT NOTICE. THIS SOFTWARE OR ANY OTHER * 

001 '‘w COPIES THEREOF MAY NOT BE PROVIDED OR OTHERWISE MADE AVAILABLE TO ANY * 

0018 '‘s QTHER PERSON. NO TITLE TO AND OWNERSHIP OF THE SOFTWARE IS HEREBY * 

4 °° TRANSFERRED. * 
'® oa 

0031 '® THE INFORMATION IN THIS SOFTWARE IS SUBJECT TO CHANGE WITHOUT NOTICE * 

00 ¢ '® AND SHOULD NOT BE CONSTRUED AS A COMMITMENT BY DIGITAL EQUIPMENT * 

OoSe CORPORATION. a 
'e tt 

0025 'w DIGITAL ASSUMES NO RESPONSIBILITY FOR THE USE OR RELIABILITY OF ITS * 

0037 » SOFTWARE ON EQUIPMENT WHICH IS NOT SUPPLIED BY DIGITAL. * 
‘ee ® 

0099 PITTIIITITIIII LITTLE, 

0 

0031 

i814 

003 

Boe ' 

035 ! ABSTRACT: 

0036 

0037 

0038 

0039 

0040 

004 

004 

004 
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STARLET operating system, including privileged system services 
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1 
¢ ! 
! 
044 : and internal exec routines. 
045 ! 
pee oes 
see | 
0949 AUTHOR: Andrew C. Goldstein, CREATION DATE: 28-Mar-1977 15:05 
091 ; MODIFIED BY: 
ba i v04-001 CDS0006 Christian D. Saether Shag ot 
054 : Mo fy test for re-reading file header after ENTER 
be2 } (CDS0004). 
0087 i v03-042 CDS0005 Christian D. Saether 31-Aug-1984 


'+4 

{ 

FACILITY: FI1IACP Structure Level 2 
| 
| 
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; 8 $28 ‘1 Defer building of ACL's until after initial extend ; 
3 9 1! takes place so that the map pointer for a contiguous ‘ 
. ¢ pe ! file is in the primary header. . 
: 6 006¢ 1 V03-041 CDS0004 Christian D. Saether 30-Aug-1984 ; 
; § 065 1! Reread newly created header after ENTER because : 
; 664 0064 1! it may have been flushed from the cache by a multi : 
: 9? Spee ! header directory file. ; 
: 67 0067 1: v03-040 cps0013 Christian D. Saether 14-Aug-1984 ; 
; eB Bees : Modify creation of extension fcb chain, if necessary. ; 
; 0 0076 1 i V03-039 LMP0298 L. Mark Pilant 7-Aug-1984 16:22 : 
; f} B80) ! } Add the necessary protection checks for create-if. : 
eS 0078 1 V03-038 ACG0438 Andrew C. Goldstein, 1-Aug=1984 21:23 ; 
; rf 0074 1! Fix Link truncation error; release any existing : 
: p Baee : } serialization lock before starting create : 
: 7 0077 1: v03-037 LMP0288 L. Mark Pilant, 29-Jul-1984 13:56 ; 
3 78 0078 1! Make sure that the ACL queue head of the new file is properly ; 
5 0079 1! initialized when copy in the ACL from a prior version (this $ 
: g° Boas : bug introcuded in LMP0284.) : 
:  B2 0082 1 | V03-036 LMP0284 L. Mark Pilant, 26-Jul-1984 12:14 : 
; ? Boer ; Fix call to ACL_INIT_QUEUE, since it was moved to ACLSUBR. : 
: BS 0085 1 V03-035 ACG0440 Andrew C. Goldstein, 25-Jul-1984 14:27 ; 
: B6 site] ! } Move setup of default access ACE to after attributes are written : 
: 88 0088 1 v03-034 LMP0275 L. Mark Pilant 23-Jul-1984 14:40 : 
: 34 0080 : Don't try to propagate an ACL if there isn't one. : 
a 0091 1! V03-033 ACG0437 Andrew C. Goldstein, 13-Jul-1984 15:27 : 
; 0092 1! Corrections to alternate file ownership: fix interface to : 
; «93 0093 1! CHANGE_OWNER so that next version propagation works and : 
; 0094 1! so that space charging is done correctly. Also add an : 
: 3 siaed ' ACL entry for the creator to guarantee access. : 
: 9 0097 1: v03-032 cps0012 Christian D. Saether 29-Jun-1984 F 
; 0098 1! Add another call to read_header after copying info 3 
; 299 0099 1! in propagate_attr because primary header may have : 
: 19 Bios ! been flushed from the cache. : 
: 192 a4 1 v03-031 CDS0011 Christian D. Saether 22-Apr-1984 : 
: We? Oibz : } Modify access arbitration. : 
> 105 0105 1 | V03-030 CDS0010 Christian D. Saether 11-Apr-1984 ; 
: 106 0106 1! Remove call to allocation_unlock after create_header : 
: 4 at 4 ! call because that routine does it now. 

: 109 0109 1: v03-029 CDS0009 Christian D. Saether 1-Apr-1984 

; 110 0110 1! Call ALLOCATION_UNLOCK prior to deleting previous file 

s 97 ins version in supersede operations to eliminate possible 

: at \\¢ 1% deadlock condition if the previous version is being 

» Fy 11 8 extended at the same time. 

3 (114 114 1! Also call ALLOCATION_UNLOCK after an ENTER because it 
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ney have extended the eiroctery and os be holding the 
allocation lock, also causing potential deadlock further 
on in a number of ways. 


v03-028 ACG0412 Andrew C. Goldstein, 22-Mar-1984 18:19 
Implement agent access mode support; add access mode to 
check protection call; make attribute propagation to self 
a NOP (when a file is entered as a new version of itself). 


v03-027 ACG0408 Andrew C. Goldstein, 20-Mar-1984 17:54 
Make APPLY_RVN and DEFAULT_RVN macros; 
Make rest of global storage based. 


v03-026 ACG0405 Andrew C. Goldstein, 16-Mar-1984 15:12 
Fix handling of file headers in CHANGE_OWNER | 
v03-025 cdDS0008 Christian D. Saether 99-Mar-1984 


Remember CURR_LCKINDX from pr ieery context and set 
it in yg | after OPEN_FILE so that copy_info 
has the right ock basis when writing acl's fo the 

primary file's header. 


v03-024 LMP0203 L. Mark Pilant 29-Feb-1984 10:34 
Add support for F iBSV_PROPAGATE. This allow the propagation 
oT apply on an enter operation as well as a create 
operation. 


v03-023 LMP0189 L. Mark Pilant, 66-Feb-1984 13:54 
Add support for FIBSV_DIRACL. This allows the ACL of a | 
directory file parent to be copied directly to the 
children (with the exception of NOPROPAGATE ACEs). | 


V03-022 LMPO0188 L. Mark Pilant 3-Feb-1984 16:08 
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Add support for a classification block. | 
v03-021 CDS0007 Christian D. Saether 17-Jan-1984 | 
Modify interface to DEFAULT_RVN. 
v03-020 CDS0006 Christian D. Saether 27-Dec-1983 
Use BIND_COMMON macro. 
v03-019 LMPO174 L. Mark Pilant, 1-Dec-1983 14:01 | 
Change routine name for default ACE propagation. Also, 
Add a call to a routine to do general propagation. | 
v03-018 CDS0005 Christian D. Saether 14-Sep-1983 
Modify interface to SERIAL_FILE routine. 
V03-017 ACG56916 Andrew C. Goldstein, | 21-Jun-1983 18:25 
Use central routine for date management 
v03-016 LMP0156 L. Mark Pilant, 19-Sep-1983 15:43 


Files not entered into a directory now get the process 
default protection. 


v03-015 LMP0149 _ L. Mark Pilant, 13-Sep-1983 11:25 
Correct a logic problem that caused problems during the 
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protection check of a write attribute operation. 


VO3-014 LMP0148 L. Mark Pilant, 31-Aug-1983 13:29 
Make sure propagated attributes make it to the header. 


v03-013 CDS0004 Christian D. Saether 16-May-1983 
Release allocation lock after newly allocated file 
header is locked. 


v03-012 CDS0003 Christian D. Saether 4-May-1983 
Add call to SERIAL_FILE routine to interlock file 
processing. 


v03-011 cpsd002 Christian D. Saether 9-Apr-1983 
Reflect change to ACCESS_LOCK interface. 


v03-010 ACG0323 Andrew C. Goldstein, 25-Mar-1983 15:51 
Simplify backlink handling to track RENAME changes 


V03-009 ACG53759 Andrew C. Goldstein, 24-Mar-1983 15:10 
Update revision date & count & expiration on ENTER 


v03-008 LMPO091 L. Mark Pilant, 18-Mar-1983 16:14 
Add a condition handler to the attribute propagation to 
catch non-existant files. Also, copy the entire file name 
when creating a long file named file. 


v03-007 LMP0980 L. Mark Pilant, 14-Feb-1983 16:16 
Add a new routine that is called to propagate the attributes 
from either the previous version of the file or the parent 
directory as necessary. 


V03-006 ACG53050 Andrew C. Goldstein, 31-Jan-1983 13:59 
Remove RVN check from check for dummy file ID 


v03-005 CDS0001 Christian D0. Saether 12-Jan-1983 
Call routine to take out file access lock. 


v03-004 LMPOCS9 L. Mark Pilant, | 21-Dec-1982 11:17 
Always create an FCB when accessing a file header. This 
eliminates a lot of special casing in FCB handling. 


V03-003 LMP0047 L. Mark Pilant 29-Sep-1982 12:05 
Put back in the volume protection check deleted by LMP0036. 


v03-002 LMP0036 L. Mark Pilant, 5-Aug-1982 13:50 
Shuffle the order that the protection checks are done to 
allow for ACL's. 


v03-001 LMP0016 L. Mark Pilant 25-Mar-1982 13:18 
Remove diddling of the COMPLETE bit in the window segments. 


v02-021 ACG0265 Andrew C. Goldstein, 15-Feb-1982 9:50 
Fix order of expiration date handling 


v02-020 ACG0258 Andrew C. Goldstein, 26-Jan-1982 16:57 
Fix reference to RVN 1 in expiration date processing 
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3 9 0229 1! 

: 0 8 Qo 1! v02-019 ACG0230 Andrew C. Goldstein, 23-Dec-1981 22:59 
3 1 8 1 : Add expiration date support 

; g 1! v02-018 ACG0247 Andrew C. Goldstein, 23-Dec-1981 20:44 
$ ¢ ¢ : Set revision date to creation date 

3 0 $ 1! v02-017 ACG024 5 Andrew C. Goldstein, esatec=1961 20:40 
3 ‘ 8 ‘ : Don't write back tink. if file is a spool file 

3 9 0 $ 1! v02-016 LMP0003 Mark Pilant, 8-Dec-1981 10:20 

; re 8 re ! Added byte Limit’ quota check on window creation. 

; 24 0 tg 1} v02-015 ACG0238 Andrew C. Goldstein, | 11-Dec-1981 23:30 
3 tz 0 tz : Allow creation of dummy directory entries 

; 45 8 45 1! v02-014 ACG0208 Andrew C. Goldstein, 17-Nov-1981 15:16 
3 r¢ 8 re : Add segmented directory reccrd support 

; 248 aces 1! v02-013 ACG0167 Andrew C. Goldstein Ps Apr-1980 19:25 
> 269 0249 1! Previous revision history moved to f11B.REV 

; 250 Bse0 1 lee 

; 51 _;, ee 

3 $26 8536 1 

3 5 025 1 LIBRARY obateciee ARY:LIB. L32°; 

; 254 0254 1 REQUIRE ‘SRCS$:FCPDEF.B32'; 

3; 09 1245 1 

3 408 1246 1 

s esr iste 1 FORWARD weet 

: 258 1248 1 CREATE : L_NORM, ! CREATE function routine 

; 259 1249 1 PROPAGATE_ATTR : L_NORM, ! Propagate file attributes 

; 260 1250 1 ee otgy HANDLER, ' condition handler for above 

; 261 1251 1 COPY_INF : L NORM; ' Copy info from old to new file 
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GLOBAL ROUTINE CREATE : L_NORM = 


ee 
' 


i FUNCTIONAL DESCRIPTION: 

This routine processes the CREATE function. It creates a file with the 
attributes requested, enters it in a directory if desired, and 
accesses the file if requested. 


i CALLING SEQUENCE: 
CREATE () 


i INPUT PARAMETERS: 
NONE 


i IMPLICIT INPUTS: 
CURRENT_VCB: VCB of volume 
IO_PACKET: packet of this 1/0 request 


! 
' 
' 
' 
' 
! 
! 
' 
1 
' 
' 
i 
' 
i 
i 
i 
i QUTPUT PARAMETERS: 
NONE 
! 
' 
! 
! 
' 
' 
' 
! 
' 
i 
i 
' 
' 
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‘ SRPLICET QUIPUTS : 
PRIMARY_FCB: FCB of file if accessed 

CURRENT “WINDOW: A Ad of file if accessed 

USER_STATUS: 1/0 status block of user 


i ROUTINE VALUE: 
if successful 
0 if error 


SIDE EFFECTS: 
File created, blocks allocated, directory modified, file accessed, etc. 
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BEGIN 
LITERAL 
ACE_LENGTH = SBYTEOFFSET (ACESL_KEY) + 4; 
LOCAL 
STATUS, ' general return status 
K i miscellaneous constant 
08 FCB_CREATED, i flag indicating new FCB created 
09 PACRET : REF BBLOCK ' address of 1/0 pocnet 
10 : REF BBLOCKVECTOR [ ABDSC LENGTH 
11 } buf er descriptors 
\¢ FIB : REF BBLOCK, i file yet ppb yd block 
1 RESULT_LENGTH, : teeaGt { reer string from ENTER 
14 RESULT : VECTOR CF ILENAME LE GTH*6, 
15 Fesult string from ENTER 
16 LINK_DID : BBLOCK CFIDSC CENGiH) ' header back Link 
17 IDENT_AREA : REF BBLOCK, ~! pointer to file header ident area 
18 PCB : REF BBL OCK; ' requestor PCB addre 
19 ARB : REF BBLOCK, access rights block “of caller 


—_——_— 


establish file access. 
penvors rave eet lock. 
interlock 


7 NORM, 

ANSI TRATE Kc CESS : tL 3B DARGS, 
CONV_ACCLOCK : L_NORM, 
SERIAL FILES : L7NORM, 
GET_FI : 
GET-LOC_ATTR : L-NORM, 
GET-LOC™ > 
SWITCH VOLUME: t NO 


ile processing. 

get FIB for operation 

get placement data tore attribute list 
get placament data 

Switch context to specified volume 
find volume in — set for create 
check file proves? on, 

charge blocks to user's disk quota 
create a file ID and header 


: compute header checksum 
MARK KOIRT 4 mark buffer for write-back 
ACL_INIT QUEUE : ADB BDRESSING Move (GENERAL),  ! Initialize ACL queue 
ACL” ADDERTRY : ADDRESSING-MODE (GENERAL), i add entry to ACL 
ACL_BUILDACL : ADDRESSING_ sae (GENERAL) L_NORM, ' build ACL into file headers 
READ_HEADER : L_NORM, read file header 
ENTER : ' enter file in directory 
' copy file name to result string 
' set file revision and exp dates 
' create an FC 
' create a window 
! enable expiration date recording 
' complete the access 
5 ! mark FCB for delete 
URITE PATTRIB : LINORM, ! write attributes 
EXTEND : LINORM, ! extend the file 
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0 09 MAP_AREA : REF BBLOCK, ! file header map area 
1 10 1Dx. FCB : REF BBLOCK, ' FCB of nee ex file 
¢ 11 FCa™ : REF BBLOCK, ! FCB addre 
\¢ ucB : REF BBLOCK, ' uCcB pointer for RVN 1 
4 1 PRIMARY _vCcB : RE OCcK ' VCB of root volume 
5 14 HEADER : REF BBLOCK, ' eddress of file header 
$ 15 NEW_HEADER : RE BBLOCK, aeeress of extension header 
1 ACL_CONTEXT, y ACL context longword 
8 1 : OCK CACE LENGTH] é buffer for ACE for file creator 
, 13 FUNCTION : BLOCK (1); ' function code qualifiers 
1 0 EXTERNAL 
§ 1 ACPS$GB_WRITBACK : BITVECTOR ie ia a MODE (ABSOLUTE), 
¢ ACP write back gauche “enable 
4 SCHSGL_PCBVEC : REF VECTOR anon SS NG MODE (ABSOLUTE), ! PCB vector 
35 4 EXESGL— DYNAMIC _FLAGS : ADDRESSI G_MOBE (ABSOL UTED: 
33 ; ! Defenic SYSGEN flags 
38 7 EXTERNAL LITERAL 
44 : EXESV_CLASS_PROT; ! Set if doing non-discretionary checks 
31 $0 BIND_COMMON; 
34 3 EXTERNAL ROUTINE 
344 ACL_DELETEACL : oo) MODE (GENERAL),! delete acls 
345 34 PORT FCB : bo rebuild fcb from header 
*0$ $2 : LINOR " “WOVALUE: ! rebuild primary fcb from header 
47 6 : LINORM NOVALUE, ! build extension fcb chain 
37 : L_NORM, { release file pynchronizetion lock 
49 3 Syachren is allocation/deal location 
40 
$) 
8 
44 
45 
46 
47 
48 
49 
50 
2) 
33 
54 


; 1 
; 1 
° 1 
: 1 
a 1 
; 1 
$ 1 
° 1 
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3 1 
; 1 
3 1 
3 1 
3 1 
6 1 
; 1 
; 1 
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3 1 
; 1 
; 1 
; 1 
; 1 
oO 1 
e 1 
: 348 1 
3 1 
3 1 
; 1 
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; 1 
3 1 
; 1 
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3 1 
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v04-001 14-Sep-19 DISKSVMSMASTER:CF11X.SRCICREATE.B32;2 2) 
77 6 SAVE CONTEXT : LUNORM, ! save reentrant context area 
78 6 RESTORE CONTEXT : L_NORM, ' restore reentrant context area 
79 6 MARK_DECETE : LINORM, ! mark file for delete 
80 § REMAP FILE : LUNORM, ! remap the file completely 
Be ty SEARCA_FCB : L-NORM ADDRESSING_MODE (GENERAL); ! Search FCB List 
8 7 
rf a } Enable the deaccess cleanup if an access is taking place. 

86 75 

87 7 PACKET = .10 PACKET; 

BR 7 FUNCTION = .PACKETCIRPSW_FUNC); 

89 78 F_.FUNCTIONCIOSV_ACCESSJ 

90 4 THEN 

91 80 BEGIN 

9 381 persia tei caret = 1; 

39 Be CLEANUP~FLAGSCCLF-DELWINDOW) = 1; 

Hed Bz END; 

96 385 ! Set up pointers to interesting control blocks. 

397 336 8 i . 

398 44 

399 88 PCB = .SCHSGL_PCBVECC.(10_ PACKETCIRPS$L_PIDJ)<0,16>]; 

400 389 ABD = .BBLOCK”C.PACKETLIRPSL_SVAPTE], AIBSL_DESCRIPT); 
401 90 ' pointer to buffer descriptors 
rey 391 FIB = GET_FIB (.ABD); ! pointer to FIB 
40 338 
404 IF .FIBCFIBSV_TRUNC) 

OR .FIBCFIBSW_VERLIMIT] GTRU 32767 

406 OR (.FUNCTIONCIO$V_DELETE] AND NOT -FUNCTIONCIO$V_ACCESSJ) 
407 OR (NOT .FUNCTIONCTO$V_CREATE) 
408 AND (.F IBLF IBSV_EXTEND) 

0 OR .PACKETCIRP$W_BCNT) GTR ABDSC_ATTRIB 

OR .FUNCTIONCIOSV_ACCESS) 


: 1 
o 1 
; 1 
: 1 
: 1 
© 1 
; 1 
; 1 
: 1 
3 1 
o 1 
; 1 
; 1 
2 1 
; 1 
° 1 
; 1 
; 1 
: 1 
; 1 
; 1 
e 1 
; 1 
; 1 
; 1 
; 1 
H 1 
: 1 
: 405 1 
; 1 
; 1 
; 1 
3 1 
o 1 
; 1 
° 1 
; 1 
; 1 
o 1 
; 1 
: 1 
: 1 
i 1 
° 1 
° 1 
oe 1 
. 1 
. 1 
; 1 
e 1 
1 
° 1 
0 1 
: 1 
o 1 
; 1 
3 1 


) 
THEN ERR_EXIT (SS$_BADPARAM) ; 


IF _.CURRENT_VCBCVCB$V_NOALLOC] 
THEN ERR_EXTT (SS$_WRITLCK); 


! Do the create if requested. Start by allocating a file number from the 
index file bitmap and reading in the initial file header. 
IF_ .FUNCTIONCIOS$V_CREATE) 
BEGIN 
! Deal with special cases related to create-if. Release any serialization 
: lock we are holding, and force supersede mode to dispose of bad 
directory entries. 
o ,PACKETCIRPSV_F CODE) EQL IO$_ACCESS 

BEGIN 
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>; 434 1423 4 IF .PRIM_LCKINDX NEQ 0 

; 435 1424 & THEN 

3; 6 $ 1425 BEGIN 

3; 4 14 § RELEASE SERIAL. rte (.PRIM_LCKINDX); 

>; 438 14 PRIM _LCRIN 

; 439 1428 4 N 

; 440 14 3 4 FIBLF 1B$v _SUPERSEDE] = 1; 

3 128 1431 4 ! Finally, the protection check if the directory has been accessed. This 
3; & 14 ¢ 4 ! is because the protection check is not done in DIR_ACCESS (via ENTER) if 
: 4444 14 4 ! the directory file has already been accessed. 

; 445 1434 4! 

: 446 1435 4 

: 447 14 § 4 IF .DIR_FCB NEQ 0 

; 448 14 4 AND .CLEANUP_FLAGSCC! F_DIRECTORY] 

: 449 1438 4 AND NOT .CLEANUP_FLAGSECLF_SPOOLF ILE) 

; 450 1439 4 THEN 

: 451 1440 : BEGIN 

3 $36 1441 STATUS = CHECK_PROTECT (WRITE_ACCESS, 0, .DIR_FCB, 0, 

: 45 44g 6 (IF .BBLOCK CFIBCFIBSC_ALT_ACCESS], ARMSV_DELETE] 
: 454 1443 5 THEN ARMS$M_WRITE ELSE 0),” 

: 455 1444 é -F IBLF IBSV_ALT_REG]); 

; 456 1445 IF _.STATUS EQL SS$_NOTALLPRIV 

; 457 1446 5 THEN FIBCFIBSV_ALT_GRANTEDJ = 0; 

; 458 1447 4 END; 

; 459 1448 END; 

: 460 1449 

: 461 1450 ! Handle any placement specified and find a suitable volume for the 

: rh 1451 ; i file in a volume set. 

; 46 1o26 ! 

: 464 145 : , : 
3; 465 1454 FIBCF IBSV_PROPAGATE) = 0; ! Since propagation is implied 
: 466 1455 IF .FIBCFIBSV ALLOCATR) 

: 467 1456 THEN GET_LOC_ATTR (.ABD, .F1B); 

; 468 1457 GET_LOC C-FIe Loc _RVN, LOC _LBN); 

> 469 1458 IF [LOC_RVN NEQ 0 

: 470 1459 AND PIBErIBSV. EXACT) 

3; 471 1460 THE 

3 47 1461 SWITCH VOLUME (.LOC_RVN) 

: 47 1006 ELS 

: 474 1463 4 SELECT_VOLUME (.FIB, 7. -FIBCFIBSV_EXTEND) 

3 6475 1464 4 THEN .FIBCFIBSL_EXSZ] 

: 476 1465 ELSE 0)); 

3; 477 1696 

; 478 146 CHECK poorest (CREATE_ACCESS, 0, 0, 0); ! Check volume protection 
3; 479 1468 IF .BBLOCK CCURRENT UCBCUCBS$L_DEVCHARI. DEVSV_ SWLJ 

: 480 1469 OR .CURRENT VCBEVCBSV NOALLOCT - 

: $e) 1679 THEN ERR_EXTT (SS$_WRITLCK); 

: ret 1026 HEADER = CREATE_HEADER (FIBCFIBSW_FIDI); 

3; 485 1474 ' Now build an initialized file header in the buffer. 

; $36 1475 : : 

; 48 sere 

3 $38 1e7e ; ARB = .PACKETCIRPS$L_ARB); 

; 490 1479 IF .EXESGL_DYNAMIC_FLAGS<EXESV_CLASS_PROT,1> 
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491 H DERE FH2SB_ 1DOFF SET] = FH2SC_FULL_LENGTH / 2 
49 HEADERLFHOSB_IDOFFSET] = FHOSC LENGTH / 2: 
49 REFHOSB_MPOFFSET] = .HEADERLFH2SB_IDOFFSET] + FI2SC_LENGTH / 2; 
494 REFHOSB_ACOFFSET) = (SBYTEOFFSET TFMaSU”CHECKSUS) 7 2: 
495 HeSB-RSOFFSET] = ($BYTEOFFSET (FHOSW-CHECKSUM)) / 2; 
496 H W~SEG NUM] = 0; 
497 HeSW-STROCLEV] = FH2SC_LEVEL2 + 1; 
(0, 512 SBYTEOFFSET (FH2Su EXT_FID), HEADERCFH2$W_EXT_FIDJ); 
4 FILEOWNER] = .A C_ult); 
HoSw-F | 
TIONCI 
DERCFH 
ANUP_FL 


SASSUME (ARBSS_CLASS EQL FH2$S_CLASS_PROT); 


IF_.EXESGL_DYNAMIC_FLAGS<EXE$V_CLASS_PROT,1> 
THEN CHSMOVE (ARBSS_CLASS, ARBCARBSR-CLASSJ, HEADERCFH2$R_CLASS_PROT)); 


NEW FID = 0; ! new file ID is no longer unrecorded 
CLEANUP_FLAGS(CLF_DELFILE) = 1; 

CLEANUP _FLAGSCCLF HDRNOTCHG) = 1; 

FILE HEADER = .HEADER; ' record header address for cleanup 
CHECRSUM (.HEADER); 


! At this point build the mesepeues 7s even if the file is not accessed. 


} This is necessary to allow the ACL to be built. 


FCB = KERNEL_CALL (CREATE_FCB, .HEADER); 
PRIMARY_FCB = FCB; 
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! If a non-zero directory ID is supplied, enter the file in the directory. 
Otherwise, just copy down the name string (if any) into the result string. 
i 


Note that directory operations are also nooped on spool files operations. 
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IF, CLEAMIP_FLAGSECLE DIRECTORY? AND NOT .CLEANUP_FLAGSCCLF_SPOOLFILEJ 
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BEGIN 
CHSFILL (0, FIDSC_LENGTH, OLD_ VERSION FID) 
ENTER (.ABD, .FIB> RESULT_LENGTH, RESOLT); 


wes attempt to release the allocation lock here. We will be holding 
if the directory was extended. It might make more sense to release 
in the directory extension, but the call is relatively cheap. 


ALLOCATION_UNLOCK (); 


! ENTER may have flushed the new buffer from the cache if either the 
! directory file header(s) and quota file header(s) were accessed and 
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THEN HEA 

ELSE HEA 

HEADERLF 

HEADERLF 

HEADER[F 

HEADER FHe$ 

HEADER FHeS 

CHSFIL - 

HEADERCFH2$L_FILE RBCARBS 

HEADERCFHeSW_FILEPROT] = .PCBCPCBSL_DEFPROTI; 
IF_.FUNCTIONE OSV DELETE] 

THEN HEADERLFH2$V_MARKDELJ = 1; 
F_.CLEANUP_FLAGSCCLF _SPOOLF ILE] 
THEN HEADERTFH2$V_SPOOL) = 1; 
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rt ats were multiple headers. Make sure FILE_HEADER is what we think 

5; . 

§ r ieee CIOSV_CREAIEJ 
584 FILE_HEADER = READ_HEADER (0, .FCB); 
$36 if -FUNCTIONCIOSV_CREATE] OR .FIBCFIBSV_PROPAGATE) 
e28 BEGIN 
226 ! if the CREATE modifier was not specified, then this must be a directory 
20) ! entry operation. In which case it is pecoseery to actually access the 

o¢ ! file being entered, so that an FCB will exist for the propagation to 

oi ! occur. 

65 IF NOT .FUNCTIONCIOSV_CREATE) 

THEN 


BEGIN 
! Switch context to the volume of the specified RVN. 


SWITCH VOLUME (.FIBCFIBSW_FID_RVN]); 
Synchronize further processing on this file. ‘ 


PRIM_LCKINDX = SERIAL_FILE (FI8 CFIBSW_FIDJ); 


Find the FCB of the file, if one exists. then read the file 
header. If there is no FCB, create one. 
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; FCB = SEARCH _FCB (FIBCFIBSW_FIDJ); 

3 HEADER = READ_HEADER (FIBCFIBSW_FIDJ, .FCB); 

: #4 FCB_CREATED = 0; 

; 587 IF .FCB EQL 0 

s jee THEN 

3; «589 BEGIN 

; 590 FCB_CREATED = 1; 

; 4 AS = KERNEL_CALL (CREATE_FCB, .HEADER); 

; $8 PRIMARY.FCB = .FCB; ! record FCB for external use 
: 595 ! If the file is multi-header, read the extension headers and create 
: 38 : extension FCB’s as necessary. Finally read back the primary header. 
: 598 } 

3; 599 8 IF .FCB_CREATED 

; 600 9 

: 34 BUILD_EXT_FCBS (. HEADER) 

; 3 IF .FCB CFCBSV_STALE) 

: 9 THEN 
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vOe-001 
GIN 
: 8 1898 & RESLD_PRIM.FCB (.PRIMARY_FCB, HEADER): 
: gOS 1808 & BUILDTEXT FCBS (HEADER)? 
; 60 159 LDTEXT. 
; 608 159 END; 
; or8 3 ! Wipe out any acls that may have existed, because they are going 
: o14 1690 i to be propagated. 
: 61 i 
: cif 1808 IF .BBLOCK CFCB CFCBS$R_ORB], ORBSV_ACL_QUEUEJ 
; ge 1608 ACL_DELETEACL (FCB CFCBSL_ACLFLI, 0); 
Bigs ee; , 
; $30 1808 2 ! Now propagate the file attributes to the file just entered. 
: 853 TE_ATTR (.F1B); 
BRIE MMUE ORBORLEAATS GHP suru 
: eh isla HEADERCFHDSL- .PRIMARY_FCBCFCBSL_FILEOWNER); 
; 6 3 isis 4 HEADER FUSSLFTLEOUNER] = .PRINARY ECBCECBSL f ILEOUNER 
; -HEADER) ; 
3 ‘ 1819 4 RARK DIRTY (HEADER) ; 
: 1618 END; 
Feat 
. 631 
: 1621 BEGIN | 
; e38 i 3 RESULT“LENGTH + MING (_ABDEABDSC NAME, ABD$W_COUNT], F12$S_FILENAME+F 12$S_FILENAMEXT); 
. 6 “ad 
: CHSMOVE (.RESULT_LENGTH, uw tants 6 SS eenkten 
: $32 1635 ; p, “ABDCABDSC_NARE , ABDSW_TEXT] + ABDCABDSC_NAME, ABDSW_ 
4 637 ° 
; ret 1952 f the operation. Do a protection check 
; rhs 1899 on the directory pointed to by the Procens pecs thm. 27 2F #3 [hs vente. 
: G4 1659 Te Tag Ray pn SB gh a the header ident area. Then write 
; gg 1638 attributes as specified. 
: 644 163 i 
: $49 1836 FID_NUM] NEQ 65535 
: B25 1836 OR “FIBEF 1Bsu-F 1D-Sea NEQ $3332 
; ea 1637 OR -FIBLFIBSB_FID-NAX) NEG 255 
> 64 16 H 
: 650 1639 BEGIN appa goes, 
: 652 1844 Tr PRIMARY _VCBLVCOSw.RVNGNEQ 0 
: 65 164 THEN 
bh 72 1BE S22: Wet acres coment putt Sea, 
: 1603 THENCERR EX ? ($S$_DEVNOTMOUNT); 
Ae a ea eae 
: 658 1647 4 £ 
: 659 1648 ; END; 
: $6 1850 IF .PRIM_LCKINDX EQL 0 
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3 $66 1651 THEN 

: oo? 1 § PRIM_LCKINDX = SERIAL_FILE (FIB CFIBSW_FIDJ); 

; 665 1654 HEADER = READ_HEADER (FIBCFIBSW_F Atte 0); 

; 66 1638 IDENT_AREA = THEADER + .HEADERLFH2$8. IDOFFSETI®2: 

; O38 1687 ror BT eee teea a a ee BACKLINK], PREV_LINK); 

; 670 1659 “PRED LT INKEF 1030 -RVN] EQL 0 

: 671 1660 

3 ore 1661 4 NBES 3IN 

3 67 106¢ 4 1F NOT .CLEANUP_FLAGSCCLF_SPOOLFILE) 

; 674 1665 4 THEN 

; 675 1664 5 BEGIN 

; 676 1665 5 evs st 1eee LENGTH, FIBCFIB$W_DIDI, ae BACKLINK); 
: 677 1666 5 DEFAULT (HEADERCFH2$W_BK_FIDRVNJ,.CURRENT_R 

; 678 1667 5 CLEANUP “FUAGSCCLP FIXU INE ="1; 

; 679 1668 4 END; 

: 680 1669 4 

; 681 1670 4 CHSMOVE Frese FLEW IDENT AREACFI2$T_ FILENAME], PREV_INAME); 
> 68 1671 4 CHSMOVE (FI2SSFILENAMEXT, IDENT _AREACFI2$T_FILENAMEXTJ, 

; 68 1676 4 PREV V_INA MELF I SSF ILENAME ) 

; 684 167 4 CHSCOPY (.RESULT_LENGTH, RESULT, ° ° A $S_FILENAME, [DENT_AREALF 12$T_F ILENAME)); 
: 685 1674 4 IF .HEADERCFH2$B-MPOFFSET] - .HEADERCFH2$B.YDOFFSET 

; 686 1675 4 (SBYTEOF FSET (FI2$T_ FILENAMEXT) + F12$S_F ILENAMEXT) / 2 
; 687 1676 4 N 

; 688 1677 5 SeGIn 

; 689 1678 5 MAX (.RESULT_LENGTH = FI2$S_FI ENAME , 0); 

; 690 1679 5 CHSCOPY (.K, RESOLTCFI2$S_FIL 

: 691 1680 5 FIO$S_FILENAMEXT> IDENT MAREACE 13ST _FILENAMEXT); 

3; 69 1681 4 END; 

; 69 1oR6 4 

3 694 16835 4 ! Update revision count and date and expiration date as appropriate. 

3; 695 1684 4! 

; 696 1685 4 

; 697 1686 4 SET_REVISION (.HEADER, 3); 

; 698 1687 END; 

3; 699 1688 e 

; 700 1689 ' Set up file dates; then write the attributes. 

: 701 1690 ! 

3; 702 1691 

; 703 1998 IF .FUNCTIONCIOSV_CREATEJ 

: 704 169 THEN 

: 705 1694 4 BEGIN 

co a 1695 4 IDENT _AREALFI2$W_REVISION) = 0; 

: AdA 1698 2 CHSMOVE (FI2$S _CREDATE, IDENT _AREACF 12$0 -REVDATE], IDENT_AREACF I2$Q_CREDATE]); 
; 709 1698 4 IF .PACKETCIRPS$S#_BCNT] GTR ABDSC_ATTRIB 

; 710 1699 4 THEN 

2 1700 5 BEGIN 

, 7 1701 § cophe ATTRIB . + tif ABD, 0); 

, 7 1706 5 EADER = .FILE_HEADER 

mm . 1703 4 END: 

2: 1704 4 

. 2 1705 4! If the file is now owned by a UIC other than the creator, add an ACL 

ee 1706 4! entry grens ine owner's access to the creator. Then write the maditied 
ee 1707 4 ! ACL into the header. 
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IF .HEADERCFH2SL_FILEOWNER] NEQ .ARBCARBSL_UIC) 
AND NOT . CLEANUP=FLAGSCCLF _SYSPRVJ 


re 


(PRIMARY _F CBCFCBSR_ORB)); 


} = ACE LENGTH: 
ACESC 

: = ACESR NOPROPAGATE: 

Rata FILEPROT])<4,4> XOR %B°1111"); 

rc Bt FCBSL L ~AcLrL, ACL_CONTEXT, ACE_LENGTH, ACE); 
RR_EXIT (. YeTATUa): 


CHARGE_QUOTA (.HEADERCFH2$L_FIL “wastes » BITLIST (QUOTA_CHECK, QUOTA_CHARGE)); 
CLEANUP_FLAGSLCLF_HDRNOTCHG] = 


If access is requested, access the file. 


wu 
DONAOUESWN —OOONOUS WIN O 


be te be i be te ben tee tee ie ie i i Se i ie | 


ogy TI Sey Pete sss 
BEGIN 
IF NOT ARBITRATE_ACCESS (.F1B CFIBSL_ACCTLI, .FCB) 
BUG_CHECK (XQPERR, ‘how can we fail to access a new file?'); 


CURRENT_WINDOW = CREATE_WINDOW (.FIBCFIBSL_ACCTLI 
.FIBCFIB$SB_WSIZEJ, sHEADER, .PACKETCIRPSL_PIDS, .FCB); 


IF .CURRENT_WINDOW EQL 0 
THEN 
BEGIN 


' This will dequeue the access lock we may have taken above (if a cluster 
device) because the refcnt will be zero. 
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CONV_ACC Lf K (0 
ERR REX XIT S$ - 
END? 


SNS 


-_ FCB); 
XBYTLM); 
MAKE_ACCESS (.FCB, .CURRENT_WINDOW, .ABD); 


IF "pre bad teed pe. ere? 

THEN KERNEL cone L_FCB, 
N PRIMARY veBLve RETATNAAK 

THEN KERNEL_CTALL (Set a RETA 
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Now extend the file if requested. 
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IF .FIBLFIBSV EXTEND] THEN EXTEND (.FIB, .HEADER); 
HEADER = .FILE HEADER; 
KERN NEL_CALL (UPDATE_FCB, .HEADER); 


CHECKSUM (.HEADER); 
MARK_DIRTY (.HEADER); 


IF (.FUNCTIONCIOSV ‘yoy OR .FIBCFIBSV_PROPAGATE) 
Ano -PRIMARY_FCB NEQ 0 


"If _:BBLOCKEPRIMARY FCBCFCBSR_ORBJ, ORB$V_ACL_QUEUEJ 


BEGIN 
STATUS = ACL_BUILDACL (.PRIMARY_FC 
con NOT .STATOS THEN ERR EXIT (.STA 


! Perform the remap operation if necessary to account for any initial extend. 


IF FUNCT IONE 1O8¥ ACCESS] AND .FIBCFIBSV_EXTEND) 
THEN IF .CURREN7 GINDOWCWCBSV_ CATHEDRAL]~ 
La REMAP_FILE 7); 


If this is a supersede operation, delete the file that was removed during 
the enter operation above. This must be done last since we cannot undo 
a delete in cleaning up from a subsequent error. We first copy the primary 
context into the context save area since this is a secondary operation. 


IF _.CLEANUP_FLAGSCCLF _SUPERSEDE) 
TREN 


BEGIN 
ALLOCATION_UNLOCK (); 
SAVE_CONTERT (); 
CHSCOPY (FIDSC_LENGTH, SUPER FID, 0, 
FIBSC"LENGTH - $8 TEOFFSET (FIBSW FID), SECOND_FIBCFIBSW_FIDJ); 
SECOND_FIBCFIBSB_AGENT_MODE) = .FIBCFIB$B_AGENT_MODE); 
MARK_DELETE (SECOND FIB, 1, 0, 0); 
RESTORE CONTEXT (); 
RETURN 1; 
END; ! end of routine CREATE 


neat 
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SCHSGL~PCBVEC, EXESGL_DYNAMIC_FLAGS 
EXESV_CLASS_PROT 
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.EXTRN ACL_DELETEACL, UPDATE FCB 

-EXTRN REBCD_PRIM FCB, BUILD“EXT_FCBS 

~EXTRN RELEASE _SERIAL_LOCK 

~EXTRN ALLOCATION_UNLOCK 

~EXTRN ARBITRATE_ACCESS 

~EXTRN CONV_ACCLOCK, SERIAL_FILE 

-EXTRN GET_FIB, GET_LOC_ATTR 

-EXTRN GET-LOC, SWITCH VOLUME 

-EXTRN SELECT_VOLUME, CHECK_PROTECT 

-EXTRN CHARGE-QUOTA, CREATE-HEADER 

TEXTRN CHECKSOM, MARK_DIRTY 

-EXTRN ACL_INIT_QUEUE; ACL_ADDENTRY 

SEXTRN ACL~BUILBACL, READ READER 

eEXTRN ENTER, COPY_NAME 

“EXTRN SET_REVISION, CREATE_FCB 

eEXTRN CREATE_WINDOW, SET_ERPIRE 

sEXTRN MAKE ACCESS, MARKDEL_FC | : F 

"EXTRN WRITE ATTRIB, EXTEND 


TEXTRN SAVE_CONTEXT. RESTORE _CONTEXT 
«EXTRN MARK-DELETE, REMAP_FIC 
-EXTRN SEARTH_FCB, BUGS$_XOPERR 


| 
-PSECT S$CODES,NOWRT,2 | 


OBFC 90000 -ENTRY CREATE, Save R2,R3,R4,R5,R6,R7,RB,R9,R11 : 1252, 
SE 80 AE 9E 00002 MOVAB =128(SP), SP : 
4 AA YF 00006 PUSHAB 4(BASE) + 1328) 
08 AA 9F 00009 PUSHAB &8(BASE) : 
59 18 AA 9E 0000 MOVAB 24(BASE), R9 ; 
30 Aa 9F 0001 PUSHAB 48(BASE) : | 
O1A8 CA 9F 0001 PUSHAB 424(BASE) : 
0244 CA 9F 0001 PUSHAB 580(BASE) ; 
90 AA DD 00C'1B PUSHL -112(BASE) : 1376) 
50 6 20 cl 001 ADDL #32 PACKET, RO : 1377) 
E 60 3 002 MOVZ2WL (ROS, FUNCTION ; 
06 6E 06 £1 000 C #5 FUNCTION 1$ : 1378 
02 AA 0402 8F AB 00029 BISw2 #1026, 2(BASE) : 1382 
1 000000006 9F DO O002F 18 MOVL § @#SCH$GL_PCBVEC, R1 : 1388 
8 90 AA 08 00 MOVL -112(BASE), RO 3 
o¢ ¢ 003A ADDL2 #13 RO : 
0 6 ¢ 030 MOVZWL (ROS Ro : 
B 6140 Dd 940 VL (R1) ERO], PCB ; | 
50 06 AE 3¢ C1 00044 ADDL3 #44, PACKET, RO ; 1389 
56 0 00 049 vL ~=— a(RO) +, ABD ; 
56 DD 0004C PUSHL ABD + 1391) 
00006 cf gi F Que CALLS #1, GET_FIB : | 
7 Q dO 000 VL RO FIB ; 
7 17 A? £8 00056 BLBS © 23(FIB), 3$ > 1393) 
7FFF F 2c OA? 81 0 A CMPW 8=s-s«sGA(F IB), #32767 : 1394) 
1F 1A 0006 BGTRU 3$ : 
04 01 AE €9 9 6 BLBC FUNCTION+1, 2$ > 1395 | 
17 6E 06 3 BBC #6, FUNCTION, 3$ ; 
6 A 2%: TSTB  ~—s FUNCTION : 1396 
16 1 C BLSS = 4 : 
16 aA? 9 6 TSTB ; (F IB) : 1397 | 
of 1 BLSS : 
50 04 At C1 73 ADDL3 #50, PACKET, RO > 1398 


? 
1 . “11 Bliss-32 V4.0-742 
1Sogeontgge 13:98: T$ = DTSKSUMGMASTERSCFTIX«SRCICREATE.032;2°%° (2) : 
T ; : 
vou-001 0 BI 78 MPW RO), #5 ; 399 | : 
05 be if Ore pernu aS FUNCTION, 4$ : 1402 | : 
03 - 14 BF 0008) 38 a neon : 1404 
-104 F e 
50 98 AA DO O84 4$ pare ro 11(R0). 58 ; 
03 0B AO 04 §! 08D BRW 16 ; 1611 : 
00C2 } 090 S$ TSTB FUNCTION ; | : 
3 19 0009 oho. i ; 1420) : 
O15E 31 333 és ADDL ’ 2, paCne lS RO : ; 
38 ee 60 > doosc ek 8 eh ee $1423, : 
32 6 ° GF 12 OOOAl 73 has : | ; 
83 38 Oooas BEQL = 7$ 3 1426) 
69 pd 000K7 CALLS #1 RELEASE _SERIAL_LOCK 1427 | 
00006 CF RS Bt CLAL : 1429 | 
7$: BISB2 21(F 1B) : | : 
7 eg ae th et MOVL 206<BASE), RO Ss sen : 
” SF 8 Sooes BBC’ oe. (BASE), 108 1438. : 
33 “ ba 95 QO0BE TSTB (BASE) 164s! ; 
2 19 0001 i #1, 56(FIB), -(SP) > 1442 | é 
- 01 : EF once BBC ¢. 60(F 1B), 8$ ; | : 
ne 04 3c A? 8 5D OO00CE oe «(fe : | : 
Ot Pe Pua) | 
7E D4 00004 9$: CLRL - ; | 
56 bb 0006 mova: Bt, =<SP) . eas 
7E 01 7D 00 CALLS #6, CHECK PROTEC ; : 
00006 CF a Bt, MOVL = T 2 1445 | : 
8 4 RE DT O00ES CMPL STATUS, #1665 : 1446 
00000681 8F s. 8 Fi eee 7) Bee gee 1288 | ; 
8 AT SES SSeS vgs, bites SG * 56(F 1B) : 1455 | : 
BM Oe £1 0096 Bae as ae : 1456 ; 
a wee 56 7 Baore CALLS. ae” sg GELS LOCATIR {1457 ; 
00006 CF 20 AA OF G0108 118: PusiAB § (BASE) ; 
SDD 00108 CAs aS” GET Loc 1458 : 
00006 CF +e Bd TSTL © - 2B (BASE ; | : 
Of } ae BLBC 3 (P18) 12$ ; 1461 | : 
” ie AA DD Ott CALLS #1. SWITCH. VOLUME : : 
00006 CF Q1 FB OO1I¢ BRB. «158 > 1463. : 
A? 95 00135 128: fete patria tae : 
6 05 4% 136 | cee ee, eee See 
18 A pp ; 8 pea fee : 1463, ; 
FE 4 00190 138: CURL. CSP) 


CREAT 
0G 


D 
oa$ep=1986 1:90:18 DI SKSVMSMAS : 


Pp 1 
ICREATE.B32:2 9 (2 


32_V4.0-742 
TER: CFTIX. SRC 5 


7 DD 001 F1B ; ; 

00006 CF 2 FB 001 CALLS #2, SELECT_VOLUME : : 

: 7C 00136 15$ CLRO = 4$P) + 1467 F 

7E 7D 001 MOV #3, -=(SP) : : 

00006 CF 4 FB 001 e CALLS #4. CHECK_PROTECT : ; 

0 94 AA DO 0014 MOVL 1068 BASET. + 1468) : 

09 3B COA 01 £0 00144 BBS #1, 59(RO). 16% : ; 
g 98 AA DO 90149 MOVL 754 (BASED RO + 1469 ; 

05 0B AO 4 €1 140 BBC #4, 11(RO). 17$ : ; 
025c BF iy 4 16$: CHAU #604 + 1470) : 

06 A? OF o1 $ 17$: PUSHAB  4(FIB) + 1472. ; 

00006 ct 1 FB 158 CALLS #1, CREATE_HEADER : ; 

g 0 DO 0015F MOVL R : ; 

50 04 AE 00000058 BF Ci 00162 ADDL3 #88, PACKET, RO + 1477) : 
1c AE 60 DO 00168 MOVL R : ; 

05 000000006 9F 000000006 8F £1 0016F BBC ee @#EXESGL_DYNAMIC_FLAGS, =: 1479 : 
68 36 90 00178 MOVB #54, (HEADER) + 1480 ; 

03 11 OO17E BRB 19$ : ; 

66 ¢8 90 90180 18$:  MOVB #40, (HEADER) : 1481 ; 

01 Ag 68 C 81 0183 19$:  ADDB3 #60 (HEADER), 1(HEADER) : 1488 | ; 
2 Ag FFFF er C 00188 MOVZ2WL #65535, 2(HEADER) + 148 ; 

06 Ag 0201 8F BO O018E MOVW #513, &(HEADER) : 1486 ; 

O1F2 =F 00 6E a 00 2¢ 00194 MOVCS #0, (SP), #0, #498, 14(HEADER) + 1488 : 
50 1c AE 38 ¢1 0019D ADDL3 #54, ARB, RO + 1489 : 
3c oa 60 DO 001A2 MOVL (ROS, 60(HEADER) : | ; 

40 AB 0114 CB BO 001A6 MOVW 276(PCB), 64(HEADER) + 1490 ; 

05 01 AE €9 OO1AC BLBC = FUNCTION+1, 20$ + 149 ; 

35 AB 80 8F 88 90180 BISB2 #128, 53(HEADER) + 149 ; 

6A 95 00185 208: TST (BASE) + 1495 ; 

04 18 00187 BGEQ = 21$ : ; 

35 AB 10 88 00189 BISB2 #16, 5S3(HEADER) > 1496 | ; 

0A 000000006 9F 00000000G 8F £1 001BD 21$: BBC #EXESV_CLASS_PROT, @#EXESGL_DYNAMIC_FLAGS, -: 1500 ; 
58 1¢ AE 0c cI 001¢9 ADDL3 #12, ARB, R11 : 1501 : 
58 AB 6B 14 28 O01 cE MOVC3 #20. (R11), 88(HEADER) ; : 
AB AA D4 00103 22$: = CLAL 788 (BASE) > 1503 ; 

02 AA 0820 ef Aa 90106 BISw2 #2080, 2¢ : 1505 ; 

18 «BE 8 pC O10¢ MOVL HEADER, @24(SP) : 1506 ; 

58 DD OO1E PUSHL HEADER : 1507 F 

00006 CF or FB Ole CALLS #1, CHECKSUM : : 

8 DD OIE PUSHL HEADER + 1513 : 

00006 CF Q1 FB 1£9 CALLS #1, CREATE_FCB F ; 

58 0 DO OO1EE MOVL RO. FCB ; ; 

16 BE 5B D0 O1F1 MOVL FCB, a@20(SP) + 1514 ; 

03 6A 06 1F5 23%: BBS #6, (BASE), 25$ : 1522 ; 
00E7 31 001F9 24%: BRW 3 : : 

6A 95 OOIFC 25$: § TSTB (BASE) : 3 

F919 iF BL3S) 2 : | : 

06 00 6E sal 00 2¢ MOVCS #0, (SP), #0, #6, 332(BASE) : 1525 | 3 
44 AE OF 6 08 PUSHAB RESULT ; 1526 | : 

2c OA 9 PUSHAB RESULT_LENGTH : | ; 

7E 56 70 0 MOV D, -TSP) : : 

00006 CF 04 FB 0021 CALLS #4, ENTER : | : 


sro - - _ i Ne 


1 
CREAT ihese -1984 00:06: VAX-11 Bliss-32 V4.0-742 Page 19 CRI 
v06-001 12-08-1383 99:98:98 DISKSVMSMASTER:CF11X.SRCICREATE.B32;2 . (2). voi 

00006 CF 00 F 16 CALLS #0, ALLOCATION_UNLOCK : 1533 : 
| — 9 1B TSTB «FUNCTION + 1541) : 
D1 1D BGEG 26$ ; | : 
B DD O01F PUSHL FCB + 1543 ; 
| D4 1 CLRL -(SP) : ; 
00006 CF Q F ; CALLS ne READ HEADER : : 
| BE 4 MOVL RO, a24(SP) : ; 
| iH 93 C 26$: ISTé F NCTION : 1545, : 
| 3 ° 
03 38 «OA? 00k : 0 p BBS #3, 56(FIB), 27$ : : 
6 2 : 27$: STB FUNCTION ; 1554) : 
7E 08 A? 3¢ MOVZWL &8(FIB), -(SP) : 1561) ; 
| 00006 CF 01 FB 0024 CALLS #1, SWITCH_VOLUME : : 
04 AZ 9F 0024 PUSHAB 4(F 1B) + 1566 : 
00006 ¢F o1 FB 0248 CALLS #1, SERIAL_FILE : ; 
69 0 DO 00240 MOVL RO, (R9) : : 
04 A? 9F 00 20 PUSHAB 4(F IB) + 1572 F 
000000006 00 9! FB 025 CALLS #1, SEARCH_FCB : ; 
58 0 pO 0025A MOVL RO, FCB : ; 
oo A SP ORFS Lhe isn| |i 
| 00006 CF 92 FB 00 62 CALLS #2, READ_HEADER : ; 
58 DO 0026 MOVL RO, HEADER : 3 
52 D4 0026A CLRL = FCB_CREATED ; 1574 ; 
| 58 0S 0026C TSTL FCB + 1576 ’ 
0p if 0026E BNEQ 28$ : ; 
52 01 D 00 29 MOVL #1, FCB_CREATED : 1579) ; 
58 DD 0027 PUSHL HEADER : 1580. ; 
00006 CF 01 FB 00275 CALLS #1, CREATE_FCB : ; 
58 50 00 027A MOVL RO. FCB : ; 
14 BE 5B DO 0027D 28$:  MOVL FCB, a20(SP) : 1582 : 
OE 52 «£8 00281 BLBS FCB CREATED 29$ : 1588 ; 
11 23 AB E9 00284 BLBC  35(FCB), 30$ : 1392 ; 
58 DD 00288 PUSHL HEADER : 159 ; 
18 BE DD 002BA, PUSHL a4 (SP) : ; 
00006 CF 9 FB 0028D CALLS #2, REBLD_PRIM_FCB ; ; 
DD 00292 29%:  PUSHL HEADER : 1596 ; 
00096 CF 01 FB 0294 CALLS #1, BUILD_EXT_FCBS : ; 
0D 6 AB 9 E1 00299 30$: C #1, 99(FCB), 3 3 1603 3 
E b4 0 Hi] CLRL 7 S$P) + 1605 : 
0080 CB 9F 002A PUSHAB 18 (FCB) ; | ; 
000000006 00 96 FB OO02A4 CALLS #2, ACL_DELETEACL : : 
DD OO2AB 31$:  PUSHL FIB : 1611 | ; 
0000v CF : # 0 AD CALLS #1, PROPAGATE_ATTR : ; 
24 AE 0 D 8 MOVL RO STATUS F ; 
0 26 AE ES 0286 BLBS StAtUs, $ 1612 
5 18 BE D BD 32$: MOVL &24(SP), HEADER + 1613 : 
‘ 14 BE D C1 MOVL @ 0<SP) , R + 1614 | ; 
3c C«A 58 36A0 OD C5 MOVL 88(RO), 60(HEADER) ; : 
5 14 BE D CA MOVL 8 @ Q<sPi, R : 1615 | ; 
40 AB 70 AO B ¢ MOVW 112(RO). 64(HEADER) : | ; 
DD 0020 PUSHL HEADER ; 1616 | ; 
| 00006 CF FB 002D CALLS #1, CHECKSUM : ; 
8 DD O002DA PUSHL HEADER > 1617) ; 

| 

| 


eat — — 7 7 


. “11 BLiss-32_V4,0-742 page 680 
16-Sep-1 DISKSVMSMASTER:CF1IX.SRCICREATE.B32;2°7° (3) 
sh Ete dao Fs 
v ALLS #1, MARK_ : 1522) 
00006 CF } £8 00g ene is £1835 
1 PB Gases SES BP copy wane cal 
00006 CF 12 he 80 BOSEA MOVZuL 18(ABD) es 
0 a8 at Bose CHP RO, #86 ; | 
a PASSE BERL HE a 
OO ed 1: naa es eee es 
€ FD - 
$0 wee $304 nove” ReaUcrLengTy, 1(R1)CROJ, RESULT : 1980 | 
44 AE 01 A14 3 O30¢ 358: CRPU” At IB)s ee : 
FFFF BF 8 80 5 BNEQ  36$ . penann : 1636) 
06 AP Bt 00316 CMW G(FIB), as 
FFFF 86 BF OA 12 OO31A BNEQ 6$ 255 3 163 
FF OF 09 A 3 I¢ CHB ig , é 
7$ ; 1640 
0230 $4 00395 ;  MOVL. ->J04(BASE), PRIMARY_VCB ae yete 
» RS “ERE ae bod 
0330 ; 
t. 3 oo33p a 1644 
9¢ AA DO 00334 MOVL ds 
50 . § ROVE — GB RO), U : 1645 
eS OB Oe ee BNEG S7$ i 1646 | 
oo7c BF BF 00 teat 1647) 
4 00846 MOVL -S2(UCB), PRIMARY_VCB ¢ ies0 
34 Al DO 00343 378: — MOVL 
eee 88 43 008k NEG SOS. : 1652 
: : 
0 ee MS FI eu ; 
00006 CF 12 00354 MOVE §— RO, (RO) : 1654 | 
D4 00357 398: - 
06 AP SF 00359 eee Hp READ HEADER ; | 
02 FB 0035¢ CALLS #2, Abeke 
saree | 23 BR 3 eA MOVBL <HEADER) oan 
A 00364 T_AREA é 
BN ee LC c 
10 BE 42 8 : TSTW al 6(SP 
9 G8 12 00374 ADDL #2” 16(SP), RO ; 1659 | 
04 C1 76 ADDL3 r ° ‘ 
50 10 Ae 3 65 00378 TSTW = (RO) ; 
Br 93 oo87D BNEQ = 44$ ; 1662 
6a 95 00375 TS1B (BASE) aca 
17 19 00381 a HB GGCHEADER) : 1666 | 
42 AB on a 06 28 00385 CMPZV O(HEADER), -96 | 
AO AA rye te : 0 eRe? fveAnen : 1667, 
46 AB 9 9 SISB2 eA SCBASE : 1670 | 
03 AA 40 SB Oosea atk; = Roves 0, (IDENT AREA), a12(SP) ; 1672 | 
4 E 9c Ke 0042 BF 28 6 H nove 12 ee AREA) » @(SB)¢ pars 1673 | 
A RESULT_LENGTH? | 
14 5 ie AE 28 «AE eC 003AB move 


— i = - . 7 


| | 
i 


1 
CREATE 1B-Se0-1984 00:06:06 VARI BL ias=32 W40-742 page 21 


69 B (IDENT AREA) | ; 
| 0 01 ag 9A 6 54 MOVZBL 1 (HEAD ER R), + 1674) 
) Co OO8BA Sule; RT RO eh ‘ae 
C 9 Sf 8 BD CMPL RO. #60 ; 1675 | 
| 13 1f 003¢ BLssy 438 ; | 
50 28 «AE 14 C3 c suBL 1 0, RESULT_LENGTH, RO ; 1678 
| a 
| 4 003¢9 CLRL. OR : 
0042 Ff 20 58 OA a i 0 C 42$:  MOVCS K, RESULT+20, #32, #66, 54(IDENT_AREA) + 1680 
| 93 DD 0 05 43$:  PUSHL #3 : 1686 
DD 0030 PUSHL HEADER : 
| 0000G CF 02 FB 0309 CALLS #2, SET_REVISION : 
6F 95 00 DE 44$:  TSTB FUNCTION + 1692 
03 19 0 E BLSS 45$ ; 
O11F «31 Eg BRW 53$ : 
16 AD BS OO3ES 45%:  CLRW 20(IDENT_AREA) + 1695 
16 ag 1E Ad 8 28 OO3EB MOVC3 #8, 30(IBENT_AREA), 22(1DENT_AREA) + 1696 
50 04 AE 2 C1 OO3E ADDL3 #50, PACKET,~RO : 1698 
05 60 81 O03F MPW (ROS, #5 : 
OF 1B 003F6 BLEQU 46$ : 
7E 04 0038 CLRL (SP) + 1701 
56 DD OOSFA PUSHL 3 
00006 CF 33 3 $0 Fe CALLS HEADE CRITE ATTRIB : 
58 18 bf D0 00408 MOVL : (SP) READER : 1702 | 
50 1¢ AE 8 C1 00407 46$:  ADDL3 R : 1709 
60 3C ag D1 0040C¢ CMPL SOCHEADER) (RO) : 
63 13 00410 BEQL F 
SF 01 AA EB 00412 BLBS =‘ 1(BASE) : 1710 
7E 14 BE 00000058 &F C1 00416 ADDL3 #88, a2 d6c803, -(SP) : 1713 
neon, Oe 3¢ 4 fe ey eat het CON INIT_QUEUE 1714 
429 MOV #13%217996, ACE : 1715 
50 40 AB ” 04 sateen 04 er a EXtzy a #4, 64(HEADER), RO + 1719 
a ee a be Bosh GIRLS. 16! RB, acess : ie 
, 38 OA 60 DO 00444 MOVL (ROS, ACE+8 ; 
30 AE SF 00448 PUSHAB AC > 1721 
OC DD 00448 PUSHL ; 
4 AE 9F 00440 PUSHAB Act CONTEXT : | 
7E 20 BE 09900080 BF C1 90490 ADDL3 #128, a32(SP), -(SP) : 
000000006 ” 4 FB 0499 CALLS a ACL_ADDENTRY ; ses | 
1 FB 00463 CALLS #1, ACL_BUILDACL ; 
waeerere 0? oi b0 046A MOVL RO. STATU F | 
| 0 24 AE 58 046 BLBS srAtus, 47$ : 1723 
| 0066 1 0047 BRW $ : 
6 dD 047 47$:  PUSHL : 1726 
1 DD 0047 PUSHL : 
3C as DD 0479 PUSHL  604HEADER) ; 
00006 CF FB 0047C CALLS #3, CHARGE_QUOTA ; 
| yet 20 en ec We 
| 1 B DO 00489 MOVL FCB, R : 1736 
| 
| | 
| | 
| 
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CREAT ihese -1984 00:06: VAX=-11 Bliss-32 V4.0-742 Page 23. on 
Yoe-001 12-80 8=138e 99:98:98 DISKSVMSMASTER:CF11X.SRCICREATE.B32;2 . 3) 
5 OC AA OD 46 MOVL  12(BASE), RO : 1788 | 
05 06 8 p0 4¢ #6, + FER) 57$ : | 
00006 CF Fe CALLS #0. REMAP Fite + 1789 
31 6A E 6 57$: BBC #5. (BASEY, 58$ + 1798 | 
000G CF 6 FB A CALLS #0. ALLOCATION UNLOCK : 1801 
000G CF FB 3 F CALLS #0, SAVE_CONTERT + 1802 
56 O08 AE 4 ‘ 64 ADDL3 #4. B(SPT, R + 1804 
3C 00 O1FE CA 6 C 0569 MOVC5 #6. S10(BASE), #0, #60, (R6) : 
50 0B OA ze ¢1 00571 ADDL3 #46, B(SP), R + 1805 
6 2E A? 90 00576 OVB 46(F1B), (RO) : 
7 7¢ 0574 CLRQ = = (SP) : 1806 
01 pd 0057c¢ PUSHL #1 : 
146 AE DD 0057 PUSHL  20(SP) : 
0000G CF’ 04 FB 00581 CALLS #4, MARK_DELETE F 
00006 cf 0 FB 00586 CALLS #0, RESTORE_CONTEXT + 1807 
0 01 DO 00588 58$:  MOVL #1. RO + 1811 
04 0058E RET + 1813 


; Routine Size: 1423 bytes, Routine Base: $CODE$ + 0000 
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Vou~001 Ve8ep-19b4 12:30:18 DISKSUMGMASTERSEL TIX, SREICREATE.B32;0°%" (95 


ROUTINE PROPAGATE_ATTR (FIB) : L_NORM = 


se 
FUNCTIONAL DESCRIPTION: 


| 
| 
This routine is called to propagate the file attributes from one 

file to another. This may be from one version of a file to another 
version of the file (either higher or Lower) or from the parent | 
directory to the newly created file. The following attributes are 


WN CO 0OnO 


“ 


currently copied: 
1) ile owner UIC 


02 OD CD GD GD CD CD CD CD CD OD CD CD CD 


is 


WR O OBNOAMVEWN $0 OBWOANE WIN" OO@N 


$} File Access Control List (ACL) 
) File protection (With some twiddling) 


! 

i 

i 

i 

i 

i 

i 

i 

i 

i 

i 

i 

i 

' CALLING SEQUENCE: 
PROPAGATE_ATTR (ARG1) 
' INPUT PARAMETERS: 
ARG1: address of the supplied FIB 
! 
i 
i 
i 
i 
i 
i 
i 
i 


IMPLICIT INPUTS: 
PRIMARY_FCB: address of the new file's FCB 
DIR_FCB: address of the directory file's FCB 


FEELEELELK 
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sereees 


o2 OLD-VERSION_FID: FID of the old version of the file 
HB OUTPUT PARAMETERS: 
Hf none 
85 IMPLICIT OUTPUTS: 
85 4 none 
85 5 : 
85 6 - ROUTINE VALUE: 
85 47 i 1 if success 
ri] } error code otherwise 
50 ! SIDE EFFECTS: : 
51 : The attributes in the file header of the new file are modified 
2g according to the attribute of the old version or parent directory. 
54 = 
934 855 
8 $28 BEGIN 
9 ; 7 
0 58 MAP 
4 $2) FIB : REF BBLOCK; ! Address of the FIB 
7 861 LOCAL 
74 B06 STATUS, ' Routine exit status 
75 86 WINDOW : REF BBLOCK, ' Address of created window 
76 864 FILE_FCB : REF BBLOCK, ' FCB for newly created file 
r7 865 FCB : REF BBLOCK: i Address of FCB from window | 
79 bey BIND_COMMON; 
80 68 
81 56? EXTERNAL ROUTINE 
82 0 READ_HEADER : LNORM, ! read file header | 
j 


o 
2» 
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1erSep-1986 $2:90:18 DL SKSVMSMASTERS CFT 


SAVE CONTEXT : LNORM, ' Save reentrant context area 
RESTORE CONTEXT : L_NORM, ' Restore reentrant context area 
OPEN_FICE : LINORM, ! Open a file 

CLOSE_FILE : LINORM, ' Close a file 

CHECK_PROTECT =: L_NORM; ! Perform a protection check 


ENABLE PROPAGATE_HANDLER; 


What we do depends on whether there is an old version present. 

If it exists, we copy attributes from it. If not, we copy attributes 

! from the directory. If the old version is the same as the file being 

! entered, we do nothing, because the net effect would be a NOP anyway, 
and we can't open the same file in both promary and secondary context. 


IF CHSEQL (FIDSC_LENGTH, OLD_VERSION_FID 
FIDSC-LENGTH, PRIMARY_FCBCFCB$W_F1DJ) 
THEN RETURN 1; 
IF -OLD_VERSION._FIDEF 1D$¥_NUM] NEQ 0 
OR. ;OLD_VERSION-F ID FID$B~NMX) NEQ 0 
BEGIN 
LOCAL SAVCURRINDX; 
SAVE_STATUS = .USER_STATUS; 
FILE FCB = .PRIMARY FCB; ' Save created file FCB address 


SAVCORRINDX = .CURRTLCKINDX; 
SAVE_CONTEXT (); 
WINDOW = OPEN FILE (OLD_VERSION_FID, 2); 


IF WINDOW 
THEN 
BEGIN 
FCB = ,WINDOWC(WCBSL_FCBI; 
IF CHECK_PROTECT (RBATT_ACCESS, 0, .PRIMARY FCB, 
ae MAXU T.10_PACKETCIRPSV_MODE), .FIBCFIB$B_AGENT_MODE])) 
BEGIN 


! Restore the current lock index we had from primary context. 
COPY_INFO may need to read the primary file's headers. 


CURR_LCKINDX = .SAVCURRINDX; 
STATOS = KERNEL CALL (COPY_INFO, .FCB, .FILE_FCB, .FIB, 0); 
CLOSE FILE (. WINDOW); 

RESTORE CONTEXT (); 

READ HEADER (CURRENT_FIBCFIBSW_FID], .PRIMARY_FCB); 

RETURN STATUS; 


END; 
pes TORS CONTEXT (); 


ER_STATUS = .SAVE STATUS; 
READ_HEADER (CURRENT _FIBCFIB$W_FID], .PRIMARY_FCB); 


' If we make it this far, it means that: 1) there was no previous version of 
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' the file; 2) the previous version of the file is not accessable; or 3) the 

i current process does not have access to the erovieus version. In any of 

i these cases, propagate as a newly created fi 

STATUS = KERNEL_CALL (COPY_INFO, .DIR_FCB, .PRIMARY_FCB, .FIB, 1); 

RETURN .STATUS; 


1 END; ! End of routine PROPAGATE_ATTR 


.EXTRN OPEN_FILE, CLOSE_FILE 
007C 00000 PROPAGATE_ATTR: 
.QORD 


0 Save R2,R3,R4,R5,R6 3 1814 ; 

55 08 AA 9E 00002 MOVAB (BASE), R5 + 1865 ; 

54 014C CA 9E 00006 MOVAB 332(BASE), R4 : ; 

6D OOBF CF DE 00008 MOVAL 7$, (FP) : ; 

50 65 B6 9019 MOVL (R5), RO : 1888 ; 

AO 64 06 29 0001 CMPC3 #6, (R4), 36(RO) : ; 
04 if 00018 BNEQ 1$ : ; 

50 01 DO O001A MOVL #1, RO + 1889 ; 

04 0001D RET : F 

64 B5 OOO1E 1$ TSTW = (R4) > 1891 ; 

08 if 90020 BNEQ 2s : ; 

05 Ad 95 00022 TSTB (R4) + 1892 ; 

03 12 00085 BNEQ 2 : ; 

008D 31 00027 BRW $ : : 

CO AA 80 AA DO OO02A 28: MOVL # -128(BASE), -64(BASE) : 1896 ; 
56 65 D0 O00¢F MOVL (R5), FILE + 1897 ; 

53 14 AA 00 00032 MOVL 20(BASE), SAVCURRINDX 3: 1898 3 

00006 CF 00 FB 00036 CALLS #0, SAVE_CONTEXT + 1899 ; 
02 DD 00038 PUSHL #2 : 1900 ; 

54 DD 0003D PUSHL  R4 : ; 

00006 CF 02 FB 0003F CALLS #2, OPEN_FILE ; : 
52 50 00 00044 MOVL RO. WINDOW : ; 

58 13 00047 BEQL 4$ : 1901 ; 

54 18 A2 00 00049 MOVL  24(WINDOW), FCB + 1904 ; 

51 90 AA DO 00040 MOVL -112(BASE). R1 > 1906 ; 

50 04 AC DO 00051 MOVL F1B, RO : ; 

02 0 ff 90095 EXTZ2vV #0, #2, 11(R1), -(SP) : ; 

6E 2— Aad 91 00058 CMPB = 46 (RO). \SP) : : 

iB 00051 LEQU =3$ : : 

6 2E AO 9A 00061 MOVZBL 46(RO), (SP) : : 

65 bp 00065 38: PUSHL (R5) : 1905 3 

7E 04 7D 90067 MOVQ. #4, -(SP) : : 

00006 CF 04 FB 99 6A CALLS #4, CHECK_PROTECT : ; 
2F 9 E9 0006F BLBC ~=s_s«aRO. S$ ; ; 

14. AA DO O72 MOVL § SAVCURRINDX, 20(BASE) : 1914 : 

E D4 i CLRL = (SP) > 1915 ; 

04 AC DD 0007 PUSHL FIB : ; 

0050 F 6B 0007B PUSHR #*M<R4,R6> : 5 

0000v CF 4 FB O7F CALLS #4, ty INFO ; $ 
53 g D 4 MOVL RO, Ria ATOS 3 : 

DD 7 PUSHL WIN : 1916 : 

00006 CF 1 FB 9 CALLS #1, CLOSE. FILE : ; 


0 lo — 
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00006 CF 9 FB 0008 CALLS #0, RESTORE_CONTEXT : 1917 ; 
DD PUSH (R5) + 1918 : 
7E 10. AA A € 9 ADDL3 #4, 16(BASE), (SP) : ; 
| 00006 CF é FB O9A CALLS A READ_HEADER your : 
00006 CF 0 FB OOOAl 48: CALLS #0, RESTORE_CONTEXT ; 198@ ; 
| 80 AA co AA D0 OOA6 HOV 7O4 (BASE), =128 (BASE) : 1988 ; 
7E 10 AA 4 C1 OQOOAD ADDL #4, 16(BASE), -(SP) : : 
00006 CF 2 FB 0082 CALLS #2, READ_HEADER : ; 
06 Ae pp 00089 pu Fag ita 
85 DD bone PUSHL (R5) : ; 
0000 CA DD 000B PUSHL 208(BASE) : ; 
a o 85 68 0006 mot. RO’ STATOS 
50 53 BO QO0CA 68: MOVL STATUS, RO ; ; 
0000 b0cE 7$: .WORD Save nothing : ; 
7E 04 0000 CLRL © =( SP) ; 
5E DD 90002 PUSHL SP ; 
7E 04 AC 7D 00004 MOVQ 4 (AP), =(SP) : 
0000v CF 03 FB 0C0D8 CALLS #3, PROPAGATE_HANDLER : 
04 000DD RET : 


; Routine Size: 222 bytes, Routine Base: S$CODE$ + 058F 
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VO4~ 1 14-Sep-1984 73:98:98 DISKSVMSMASTER:CF11X.SRCICREATE.832;2 . (4). vO! 

(3 950 1937 1 ROUTINE PROPAGATE_HANDLER (SIGNAL, MECHANISM) = ; 
; 921 1938 1 | ; 
Rs. § 1939 1 S44 : 

is 1940 1! ; 

13 9546 1941 1 ! FUNCTIONAL DESCRIPTION: ; 

13 955 1308 1! ; 
; 228 1945 1! This routine is the condition handler for the file attribute . 
3; 9 1944 1! propagation. It unwinds and returns a value of zero to : 
; 958 1945 1! indicate a failure. : 
; 959 4 1! : 
; 960 1947 1 ! CALLING SEQUENCE: ; 
; 961 1948 1! PROPAGATE _HANDLER (ARG1, ARG2) : 
3 + «7 1949 1! ; 
; 96 1950 1 ! INPUT PARAMETERS: : 
: 964 1951 1! ARG1: address of the signal array . 
: 965 1326 1! ARG2: address of the mechanism array : 
; 966 2) Bo 8 oe : 
: 967 1954 1! IMPLICIT INPUTS: : 
; 968 1955 1! none : 
; 969 1956 1! H 
; 970 1957 1 ! OUTPUT PARAMETERS: ; 
3. 6971 1958 1! none : 
; 1959 1! | ; 
; OT 1960 1 ! IMPLICIT OUTPUTS: : 
: 46 1303 : Value of the routine that caused the exception is returned as zero. | : 
: 976 1968 | | ROUTINE VALUE: | 
; 977 1964 1! SS$_RESIGNAL or none ; 
; 978 1965 1! ; 
; 979 1966 1 ! SIDE EFFECTS: : 
; 980 1967 1! none : 
; 981 1968 1! : 
3 one 199) 1 !-- : 
; 98 1970 1 : 
; 6984 1971 2 BEGIN : 
; «6985 1972 2 : 
; 986 1973 2 MAP ‘ : 
; 987 1974 2 SIGNAL : REF BBLOCK, ! Signal argument array F 
: 43 + 8 2 MECHANISM : REF BBLOCK; ! Mechanism argument array : 
; 990 1979 5 ! If the condition is change mode to user (ERR_EXIT) set the saved value : 
; 991 1978 2 ! of RO to zero (indicating a failure) and unwind to the PROPAGATE_ATIR 3 
3 4. 1923 ! routine. 3 
3; 994 1981 IF .SIGNALCCHFSL_SIG_NAME] EQL SS$_CMODUSER ; 
; 995 1986 THEN : 
; 996 198 BEGIN - : 
; 997 1984 ME CHANISMCCHFSL_MCH_SAVRO) = 0; ! Note failure : 
> 998 P 1985 SUNWIND (DEPADR™= MECHANI SMCCHFSL_MCH_DEPTH), ; 
; .999 1986 NEWPC = 0); : 
; 1000 198 END; ; 
; 1001 1988 ; ; 
; 1038 Hb 4 RETURN SS$_RESIGNAL; ! Ignored when unwinding : 

I 1004 1991 1 END; ! End of routine PROPAGATE HANDLER : 


2 
18-5 4 VAX-11 Bliss=-32 V4.0-742 9 CR 
1 12-888: 1382 99: 98: % DISKSVMSMAST TER:CFIIX. SRCICREATE .B32; 539 att v0 
.EXTRN SYSSUNWIND 
0000 00000 PROPAGATE HANDLER: 


3 
SA 
| 


«WORD Save note ine 3 1937. 

50 04 AC DO 90002 MOVL SIGNAL, RO : 1981) 

00000624 &F 4 Ap D1 00006 CMPL =: & (RO), -#1060 ; | 
15 1 O00E BNEQ 1$ ; 

50 08 AC D 001 MOVL 4 een RO 3: 1984) 
0C AO D4 0014 CLRL = 12(RO) : 

7E 04 00017 LRL (SP) + 1986 

E 08 aC 0 C1 0019 ADDL3 8, ME CHANI SM -(SP) : 
000000006 9 FB 3 CALLS @# svssy IND F 

0 0918 8F 3¢ 9002 1$ MOVZWL #232 + 1989 

04 0002A RET + 1991 


| 
; Routine Size: 43 bytes, Routine Base: $CODE$ + 066D | 
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ROUTINE COPY_INFO (OLD_FILE_FCB, NEW_FILE_FCB, FIB, NEW_FILE) : L_NORM = 
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FUNCTIONAL DESCRIPTION: 


998 This routine actually copies the propagated information. This 
999 routine must be called in kernel mode. The propagation takes 
is place according to the following rules: 


UIC - For a newly created file, the file takes the UIC of the 
creator unless the creator has resource rights to the 
owner of the directory. In which case, the UIC of the 
directory owner is used. For a new version of an 
existing file, the UIC of the creator is used if the 
creator does not have resource rightss to either the 
old version owner or the directory owner. If the 
creator has resource rights to the old version owner, 
that UIC is used. If not, and the creator has resource 
a — to o directory owner, the directory owner 

s used. 


Protection - For a newly created file, the protection is taken from 
the directory default protection ACE, if it exists. If 
it does not exist, the process default protection is used. 
For a new version of an gates tng file, the protection is 
taken from the old version of the file, 


ACL - For a newly created file, the ACL is taken from the 
directory default ACL. if no directory default ACL 
exists, no ACL is propapstec. For a new version of 
an existing file, the ACL is taken from the old 
version of the file. 


CALLING SEQUENCE: 
COPY_INFO (ARG1, ARG2, ARG3, ARG4) 


INPUT PARAMETERS: ; 
ARG1: address of the old file's FCB (if one) 
ARG2: address of the new file's FCB 
ARGS: address of the FI y 
ARG4: 1 if defaults for a new file oa 
0 if defaults for a new version of an existing file 


IMPLICIT INPUTS: 
DIR_FCB: address of parent directory FCB 


OUTPUT PARAMETERS: 
none 


IMPLICIT OUTPUTS: 
none 
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: 1063 2049 1! The ACL building routine is called to update the new file's file 
: 1064 ee headers with the copied ACL. 
; 1282 1 ! 
; 1069 0 : 1 
; 1068 54 BEGIN 
; 1069 55 
: 1070 28 MAP 
; 1071 05 OLD_FILE_FCB : REF BBLOCK, ! Address of old file's FCB 
3 1076 058 NEW _FILE_FCB : REF BBLOCK, ' Address of new file's FCB 
; 107 059 FIB : REF BBLOCK; ! Address of the FIB 
3; 1076 060 
; 1075 061 LINKAGE 
: 1976 06 L_SEARCH_RIGHT = JSB (REGISTER = 2, REGISTER = 4; 
; a 063 REGISTER = 1, REGISTER = 5), 
; 1079 065 LF INDACL = JSB (REGISTER = 3, REGISTER = 5, 
: 1080 066 REGISTER = 6, REGISTER = 1; 
: 1081 067 REGISTER = 15; 
3 oes 068 
3; 108 069 LOCAL 
3 1084 070 PCB : REF BBLOCK, ' PCB address of I/0 packet owner 
: 1085 2071 ARB : REF BBLOCK, ! Access rights block address 
: 1086 $076 IDENTIFIER ! Identifier being soueee 
: 1087 073 2 RIGHTS DESC, i Rights List descr addr 
; 1088 sone 2 1D_FOUND : REF BBLOCK, ! Addr of ID found 
; 1089 075 2 RIGHTS SEG : REF BBLOCK, ! Addr of rights segment : 
; 1090 2076 2 ACE_ADBRESS : REF BBLOCK, ! Pointer to default protection ACE 
; 1091 2077 § OLD_ACL_SEGMENT : REF BBLOCK, ' Address of old ACL segment 
3 18 soe NEW_ACL_SEGMENT : REF BBLOCK; ! Address of new ACL segment 
3; 109 079 2 
3 1094 2080 EXTERNAL 
3 44 i$ SCHSGL_PCBVEC : REF VECTOR ADDRESSING_MODE (ABSOLUTE); ! PCB vector 
3 1097 $83 BIND_COMMON; 
; 1098 084 
; 1099 085 EXTERNAL ROUTINE 
: 1100 086 ¢ EXESSEARCH_RIGHT : L_SEARCH_RIGHT ADDRESSING_MODE (GENERAL), 
3 1101 087 ' Seach for specified ID 
3 4 2088 EXESF INDACL : L_FINDACL ADDRESSING MODE (GENERAL), ! Locate an ACE 
3; 110 089 ACL_INIT_QUEUE : ADDRESSING_MODE (GENERAL), ! Initialize ACL queue 
3; 1104 090 ACL COPYACL : L_NORM, ! Routine to propagate desired ACEs 
; 1195 24 CHANGE _OWNER : LINORM; ! Change file owner UIC 
3 1109 09 ENABLE PROPAGATE _HANDLER; 
: 1108 094 
3 1395 R ! Initialize some necessary pointers. 
31111 099 PCB = .SCHS$GL prevect. (50 PACKETCIRP$L_P1DJ)<0,16>); 
3 111g 043 ARB = .10_PACRET ye ARBJ; 
$ EF 980 RIGHTS_DESC = ARBCARBSC_RIGHTSLISTI; 
31115 191 ! If is a new file, propagate the information from the parent directory 
3 1359 1 § i or the creator of the file as necessary. 
3111 10 
3 1118 104 IF .NEW_FILE 
3 1119 105 THEN 
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; 1120 1 $ BEGIN 

3 1121 1 If .DIR_FCB NEQ 0 

3 11 ¢ 1 : THEN 

3 11 109 4 BEGIN 

3 11246 110 4 CHANGE OWNER (.DIR_FCBCFCBSL_FILEOWNERJ, .NEW rte FCs. 0); 

: 1125 11 =4 NEW_FICE Ao Ne FILEPROT) = .PCBLPCBSL_DEFPROTI: 

$ 1} $ 16 ? -BBLOCKCDIR_FCBCFCB$R_ORBJ, ORBSV_ACL_QUEUE) 

; 1128 114 BEGIN 

: 1129 115 OLD_ACL_SEGMENT = .DIR_FCBCFCBSL tees 

3; 1130 118 UNTIL .OLD_ACL_SEGMENT™EQLA DIR_FCB FCBSL_ACLFLJ 

: 1131 11 dO 

3 11 ; 116 6 BEGIN 

3 11 119 6 ACE_ADDRESS = 0; 

: 1134 120 6 IF EXESFINDACL (ACESC_DIRDEF, 

3 1135 121 6 -OLD_ACL_SEGMENTCACLSW $126) - ACLS$C_LENGTH, 

: 1136 1 § 6 OLD_ACL_SEGMENTCACLSL_CISTJ, .ACE_ADBRESS; 

3 1137 } 6 ACE_ADDRESS) 
3 113 4 4 6 THEN 

3; 1139 125 7 BEGIN 

3: 1140 2126 7 (NEW_FILE_FCBCFCBSW_FILEPROT])<0,4> = .ACE_ADDRESSCACESL_SYS_PROTJ; 
3 11461 is 7 (NEW_FILE_FCBCFCBSW_FILEPROTJ)<4,4> = .ACE_ADDRESSCACE$L_OWN_PROTJ; 
: 1106 128 7 (NEW_FILE_FCBCFCBSW_FILEPROT])<8,4> = .ACE_ADDRESSCACES$L_GRP_PROTJ: 
3114 94 7 (NEW FILE_FCB FCBSW~F ILEPROT])<12,4> = .ACE_ADDRESSCACESC_WOR_PROTJ; 
: 11446 130 7 EXITCOOP; 

3 1145 $133 6 END; 

3 1168 $138 3 BB Ath SEGMENT = .OLD_ACL_SEGMENTCACLS$L_FLINK); 

: 1148 Sis 5 ACL_INIT_QUEUE (NEW FILE_FCBCFCBS$R_ORB)); 

> 1149 135 RETORN ACL_COPYACL T.DIRTFCB, .NEWTFILE_FCB, (IF .FIBCFIBSV_DIRACLI 

; 1150 2136 THEN 2 ELSE 19); 

: 1151 2137 & END; 

; 1138 2138 4 RETURN 1; 

3 115 2139 3 END; 

as 1 oe 

: 1156 126 ! If it is a new version of an existing file, propagate the information 
s 1137 sié ! from the old version of the file, the parent directory, or the creator | 
; 1158 144 ! of the file. 
3 1159 sie? 

3 HB 4 ! First, set the owner of the new file. 

: 1108 sien IF NOT CHANGE OWNER (.OLD_FILE_FCBCFCBSL_FILEOWNER], .NEW_FILE_FCB, 0) 

3: 116 149 AND .DIR_FC 

: 1198 13 THEN CHANGE_OWNER (.DIR_FCBCFCBSL_FILEOWNER], .NEW_FILE_FCB, 0); 

: 1166 138 ! Next, propagate the protection from the old file. 

: 1133 13g NEW_FILE_FCBCFCBSW_FILEPROT) = .OLD_FILE_FCBCFCBSW_FILEPROTI; 

: A 138 ! Last, but not least, copy the ACL (excluding ACEs marked as NOPROPAGATE). 

: 1156 158 IF .BBLOCKCOLD_FILE_FCBCFCBS$R_ORB], ORBSV_ACL_QUEUE] 

3 117 159 THEN 

eee 184 REC INIT QUEUE (NEW. FILE. FCBETCBSR_ORB)); 

3 1176 162 RETORN ATL_COPYACL T.OLD-FILE_FCB, .NEW_FILE_FCB, 2) 


we 
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! End of routine COPY_INFO 


cr ACL_COPYACL 


.EXTRN EXESSEARCH_RIGHT 
.EXTRN CHANGE _OWNE 
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Routine Base: S$CODES + 0698 
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| oREAT 16-Sep-1984 00:06:0 VAX-11 Bliss-32 V¥4.0-742 35. 
yore 001 14-Sep-1984 09:98:98 DISKSVMSMASTER:CF11X.SRCICREATE.B32; pag ° 5). 
; PSECT SUMMARY 
; Name Bytes Attributes 
; SCODES 2014 NOVEC,NOWRT, RD, EXE,NOSHR, LCL, REL, CON,NOPIC,ALIGN(2) 
; Library Statistics 
; Sewsese® FYEVOLE eeveccse Pages Processing | 
: File Total Loaded Percent Mapped Time 
: _$255$DUA28:(SYSLIBILIB.L32;1 18619 140 0 1000 00:01.9 | 
| 
; COMMAND QUALIFIERS | 
: BLISS/CHECK=(FIELD, INITIAL, OPTIMIZE)/LIS=LIS$:CREATE/OBJ=OBJ$:CREATE MSRC$:CREATE/UPDATE=(ENH$: CREATE) | 
3 Size: 2014 code + 0 data bytes 
; Run Time 01:09.9 
: Fleeced Tine: 05 569-0 
3; Lines/CPU Min: 1862 
; Lexemes/CPU-Min: 37116 
; A Used: 549 pages 
: Compilation Complete | 
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